%% Input file name: descomposicion_variabilidad.fig
%% FIG version: 3.2
%% Orientation: Landscape
%% Justification: Flush Left
%% Units: Inches
%% Paper size: A4
%% Magnification: 100.0
%% Resolution: 1200ppi

\begin{pspicture}(7.13cm,3.92cm)(16.36cm,13.49cm)
\psset{unit=0.8cm}
%%
%% Depth: 2147483647
%%
\newrgbcolor{mycolor0}{1.00 0.50 0.31}\definecolor{mycolor0}{rgb}{1.00,0.50,0.31}
\newgray{mycolor1}{0.74}\definecolor{mycolor1}{gray}{0.74}
\newrgbcolor{mycolor2}{0.28 0.46 1.00}\definecolor{mycolor2}{rgb}{0.28,0.46,1.00}
%%
%% Depth: 100
%%
\psset{linestyle=solid,linewidth=0.03175,linecolor=mycolor0}
\qdisk(15.35,12.35){0.1}
\qdisk(14.37,9.32){0.1}
\qdisk(15.67,10.23){0.1}
\qdisk(13.89,9.32){0.1}
\qdisk(11.93,7.20){0.1}
\qdisk(14.54,9.47){0.1}
\qdisk(14.21,8.86){0.1}
\qdisk(13.24,8.56){0.1}
\qdisk(17.78,13.11){0.1}
\qdisk(16.32,10.83){0.1}
\qdisk(12.58,7.80){0.1}
\qdisk(16.65,11.29){0.1}
\qdisk(18.43,15.98){0.1}
\qdisk(15.02,8.71){0.1}
\qdisk(15.18,10.08){0.1}
\qdisk(13.07,8.26){0.1}
\qdisk(11.28,7.05){0.1}
\qdisk(16.81,13.56){0.1}
\qdisk(13.24,7.20){0.1}
\qdisk(14.05,9.32){0.1}
\qdisk(14.70,10.08){0.1}
\qdisk(15.83,8.56){0.1}
\qdisk(13.40,8.41){0.1}
\qdisk(13.72,8.86){0.1}
\qdisk(14.21,10.08){0.1}
\qdisk(16.48,10.23){0.1}
\qdisk(14.21,7.65){0.1}
\qdisk(14.86,9.77){0.1}
\qdisk(13.56,9.62){0.1}
\qdisk(16.65,11.59){0.1}
\rput[l](14.96,5.7){$X$}
\rput[l]{90}(9.1,11.37){$Y$}
\psset{linecolor=black,fillstyle=none}
\psline(10.28,6.69)(19.93,6.69)(19.93,16.34)(10.28,16.34)(10.28,6.69)
\rput[l](16.2,13.9){$(x_i,y_j)$}
\psset{linestyle=dashed,linecolor=mycolor1}
\psline(10.28,13.56)(16.81,13.56)
\rput[r](10.2,13.53){$y_j$}
\psline(16.81,6.69)(16.81,13.56)
\rput[t](16.68,6.6){$x_i$}

\uncover<2->{
\psline(10.28,10.03)(19.93,10.03)
\rput[r](10.2,9.93){$\bar y$}
\psset{linestyle=solid,linecolor=mycolor2, linewidth=0.0635}
\psline{<->}(10.8,10.03)(10.8,13.56)
\rput[l](11,11.75){\parbox{1cm}{Variabilidad\\ total\\ $y_j-\bar y$}}
}

\uncover<3->{
\psset{linewidth=0.0635,linecolor=black}
\psline(11.75,6.69)(19.93,15.24)
\rput[l](17.15,14.70){$Y$ sobre $X$}
}

\uncover<4->{
\psset{linestyle=dashed, linewidth=0.03175, linecolor=mycolor1}
\psline(10.28,11.98)(16.81,11.98)
\rput[r](10.2,11.98){$f(x_i)$}
}

\uncover<5->{
\psset{linestyle=solid, linewidth=0.0635,linecolor=red}
\psline{<->}(16.81,11.98)(16.81,13.56)
\rput[r](16.39,12.7){\parbox{2cm}{Variabilidad\\ no explicada\\ $e_{ij}=y_j-f(x_i)$ }}
}

\uncover<6->{
\psset{linecolor=green}
\psline{<->}(16.81,10.03)(16.81,11.98)
\rput[l](17.23,11){\parbox{2cm}{Variabilidad\\ explicada\\ $f(x_i)-\bar y$}}
}

\end{pspicture}
%% End
